(ns scratch
(:require [scicloj.viz.api :as viz]
[tablecloth.api :as tc]
[scicloj.kindly.v3.kind :as kind]))(+ 1 2)(def people-as-maps
(->> (range 29)
(mapv (fn [i]
{:preferred-language (["clojure" "clojurescript" "babashka"]
(rand-int 3))
:age (rand-int 100)}))))(def people-as-vectors
(->> people-as-maps
(mapv (juxt :preferred-language :age))))people-as-mapspeople-as-vectors(kind/pprint people-as-maps)(kind/pprint people-as-vectors)(kind/table
{:column-names [:preferred-language :age]
:row-vectors people-as-vectors})(kind/table
{:column-names [:preferred-language :age]
:row-maps people-as-maps})[:p {:style ; https://www.htmlcsscolor.com/hex/7F5F3F
{:color "#7F5F3F"}}
"hello"](require '[tablecloth.api :as tc])(-> {:x (range 6)
:y [:A :B :C :A :B :C]}
tc/dataset)(-> {:x [1 [2 3] 4]
:y [:A :B :C]}
tc/dataset)(defn vega-point-plot [data]
(-> {:data {:values data},
:mark "point"
:encoding
{:size {:field "w" :type "quantitative"}
:x {:field "x", :type "quantitative"},
:y {:field "y", :type "quantitative"},
:fill {:field "z", :type "nominal"}}}
kind/vega))(defn random-data [n]
(->> (repeatedly n #(- (rand) 0.5))
(reductions +)
(map-indexed (fn [x y]
{:w (rand-int 9)
:z (rand-int 9)
:x x
:y y}))))(defn random-vega-plot [n]
(-> n
random-data
vega-point-plot))(random-vega-plot 9)(def cytoscape-example
{:elements {:nodes [{:data {:id "a" :parent "b"} :position {:x 215 :y 85}}
{:data {:id "b"}}
{:data {:id "c" :parent "b"} :position {:x 300 :y 85}}
{:data {:id "d"} :position {:x 215 :y 175}}
{:data {:id "e"}}
{:data {:id "f" :parent "e"} :position {:x 300 :y 175}}]
:edges [{:data {:id "ad" :source "a" :target "d"}}
{:data {:id "eb" :source "e" :target "b"}}]}
:style [{:selector "node"
:css {:content "data(id)"
:text-valign "center"
:text-halign "center"}}
{:selector "parent"
:css {:text-valign "top"
:text-halign "center"}}
{:selector "edge"
:css {:curve-style "bezier"
:target-arrow-shape "triangle"}}]
:layout {:name "preset"
:padding 5}})(kind/cytoscape cytoscape-example)(kind/cytoscape [cytoscape-example
{:style {:height 100
:width 100}}])(kind/echarts
{:xAxis {:data ["Mon" "Tue" "Wed" "Thu" "Fri" "Sat" "Sun"]}
:yAxis {}
:series [{:type "bar"
:color ["#7F5F3F"]
:data [23 24 18 25 27 28 25]}]})(-> [{:x 1 :y 2}
{:x 2 :y 4}
{:x 3 :y 9}]
viz/data
(viz/type :point)
(viz/mark-size 200)
(viz/color :x)
viz/viz)(-> [{:x 1 :y 2}
{:x 2 :y 4}
{:x 3 :y 9}]
viz/data
(viz/viz :viz/type :point
:COLOR "x"
:MSIZE 200))(import javax.imageio.ImageIO
java.net.URL)(-> "https://upload.wikimedia.org/wikipedia/commons/2/2c/Clay-ss-2005.jpg"
(URL.)
(ImageIO/read)):bye